(Ffind_coding_system): Don't use Lisp_Object as integer.

diff --git a/src/coding.c b/src/coding.c
index 7884879478c807010cfc57971da471023e9f1079..33bf00846748181595ee3466b814ab50ce8a9e36 100644 (file)
--- a/src/coding.c
+++ b/src/coding.c
@@ -3396,9 +3396,9 @@ which is a list of all the arguments given to `find-coding-system'.")
               && STRINGP (XCONS (elt)->car)
               && fast_string_match (XCONS (elt)->car, target) >= 0)
              || (INTEGERP (target) && EQ (target, XCONS (elt)->car))))
-       return (CONSP (val = XCONS (elt)->cdr)
+       return (val = XCONS (elt)->cdr, CONSP (val)
                ? val
-               : ((SYMBOLP (val) && Fboundp (val)
+               : ((SYMBOLP (val) && !NILP (Fboundp (val))
                    ? call2 (val, Flist (nargs, args))
                    : Qnil)));
     }